Gồm 1 dòng in ra tổng các số lẻ chia hết cho 3 3 từ a� đến b �.
Đọc tiếp
Gồm 1 dòng in ra tổng các số lẻ chia hết cho 3 3 từ a� đến b �.
Những câu hỏi liên quan
Đề 1 : Nhập từ bàn phím dãy số gồm phần tử ( n nhập từ bàn phím )- Dòng 1: In ra dãy số đã sắp xếp theo thứ tự tăng dần- Dòng 2: In ra các phần tử trong dãy số chia hết cho 3- Dòng 3: Tính tổng các phân tử trong dãy số là số nguyên tốĐề 2 ; Nhập từ bàn phím dãy số gồm phần tử ( n nhập từ bàn phím )- Dòng 1: : In ra dãy số đã sắp xếp theo thứ tự giảm dần- Dòng 2: In ra các phần tử trong dãy số chia hết cho 5- Dòng 3: Tính tổng các phân tử tron...
Đọc tiếp
Đề 1 : Nhập từ bàn phím dãy số gồm phần tử ( n nhập từ bàn phím )
- Dòng 1: In ra dãy số đã sắp xếp theo thứ tự tăng dần
- Dòng 2: In ra các phần tử trong dãy số chia hết cho 3
- Dòng 3: Tính tổng các phân tử trong dãy số là số nguyên tố
Đề 2 ; Nhập từ bàn phím dãy số gồm phần tử ( n nhập từ bàn phím )
- Dòng 1: : In ra dãy số đã sắp xếp theo thứ tự giảm dần
- Dòng 2: In ra các phần tử trong dãy số chia hết cho 5
- Dòng 3: Tính tổng các phân tử trong dãy số là số chính phương
Đề 3 : Nhập từ bàn phím dãy số gồm phần tử ( n nhập từ bàn phím )
- Dòng 1: : In ra dãy số đã sắp xếp những số chia hết cho 5 đứng đầu dãy
- Dòng 2: In ra các phần tử trong dãy số chia hết cho 7
- Dòng 3: Tính tổng các phân tử trong dãy số là số đối xứng có trong dãy số
huhu giúp tớ với
Câu 1: Tính tổng các số chẵn chia hết cho 4 trong phạm vi từ 1 đến 20 Câu 2: Đếm các số là số lẻ chia hết cho 3 trong phạm vi từ 1 đến 20 Câu 3: tính tổng các số lẻ chia hết cho 3 trong phạm vi từ 1 đến 20 Câu 4: Đếm các số là số chẵn chia hết cho 4 trong phạm vi từ 1 đến 20 Chị giải theo cách khác được không ạ
Câu 1:
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 20 do
if i mod 4=0 then t:=t+i;
writeln(t);
readln;
end.
Câu 2:
uses crt;
var i,dem:integer;
begin
clrscr;
dem:=0;
for i:=1 to 20 do
if i mod 3=0 then dem:=dem+1;
writeln(dem);
readln;
end.
Đúng 0
Bình luận (0)
Câu 1: Tính tổng các số chẵn chia hết cho 4 trong phạm vi từ 1 đến 20
Câu 2: Đếm các số là số lẻ chia hết cho 3 trong phạm vi từ 1 đến 20
Câu 3: tính tổng các số lẻ chia hết cho 3 trong phạm vi từ 1 đến 20
Câu 4: Đếm các số là số chẵn chia hết cho 4 trong phạm vi từ 1 đến 20
Giúp em với ạ
Câu 1:
#include <bits/stdc++.h>
using namespace std;
int t,i;
int main()
{
t=0;
for (i=1; i<=20; i++)
if (i%4==0) t=t+i;
cout<<t;
return 0;
}
2:
#include <bits/stdc++.h>
using namespace std;
int i,dem;
int main()
{
dem=0;
for (i=1; i<=20; i++)
if ((i%2==1) and (i%3==0)) dem++;
cout<<dem;
return 0;
}
Đúng 0
Bình luận (0)
Viết chương trình nhập từ bàn phím dãy số nguyên B gồm N phần tử b1, b2, …, bN (1 £ N £ 100) 1- Tính tổng các số chẵn chia hết cho 5 2- Đếm các số lẻ ở vị trí chẵn 3- Đưa ra mà hình danh sách các số lẻ chia hết cho 3
Viết chương trình nhập từ bàn phím dãy số nguyên B gồm N phần tử b1, b2, …, bN (1 £ N £ 100) 1- Tính tổng các số chẵn chia hết cho 5 2- Đếm các số lẻ ở vị trí chẵn 3- Đưa ra mà hình danh sách các số lẻ chia hết cho 3
#include <bits/stdc++.h>
using namespace std;
int B[100],n,t;
{
cin>>n;
for (int i=1; i<=n; i++) cin>>B[i];
t=0;
for (int i=1; i<=n; i++)
if (B[i]%10==0) t+=B[i];
cout<<t<<endl;
int dem=0;
for (int i=1; i<=n; i++)
if ((i%2==0) && (A[i]%2!=0)) dem++;
cout<<dem<<endl;
for (int i=1; i<=n; i++)
if ((A[i]%2!=0) && (A[i]%3==0)) cout<<A[i];
}
Đúng 0
Bình luận (0)
Viết chương trình nhập từ bàn phím dãy số nguyên B gồm N phần tử b1, b2, …, bN (1 £ N £ 100) 1- Tính tổng các số chẵn chia hết cho 5 2- Đếm các số lẻ ở vị trí chẵn 3- Đưa ra mà hình danh sách các số lẻ chia hết cho 3 Help tui mng oi
Viết chương trình nhập từ bàn phím dãy số nguyên A gồm N phần tử a1, a2, …, aN (1 £ N £ 100) 1- Tính tổng các số lẻ chia hết cho 3 2- Đếm các số chẵn ở vị trí lẻ 3- Đưa ra mà hình danh sách các số chẵn chia hết cho 5 Giúp tui zoiiii
program BaiToanMang;
var
A: array[1..100] of integer;
N, i, demChan, tongLeChia3: integer;
begin
write('Nhap so phan tu cua mang: ');
readln(N);
writeln('Nhap cac phan tu cua mang: ');
for i := 1 to N do
begin
write('a[', i, ']= ');
readln(A[i]);
end;
tongLeChia3 := 0;
for i := 1 to N do
begin
if (A[i] mod 2 = 1) and (A[i] mod 3 = 0) then
begin
tongLeChia3 := tongLeChia3 + A[i];
end;
end;
writeln('Tong cac so le chia het cho 3: ', tongLeChia3);
demChan := 0;
for i := 2 to N do
begin
if (A[i] mod 2 = 0) and (i mod 2 = 1) then
begin
demChan := demChan + 1;
end;
end;
writeln('So phan tu chan o vi tri le: ', demChan);
writeln('Cac so chan chia het cho 5: ');
for i := 1 to N do
begin
if (A[i] mod 2 = 0) and (A[i] mod 5 = 0) then
begin
write(A[i], ' ');
end;
end;
end.
ko bt đúng ko ko dùng pascal nhiều
Đúng 1
Bình luận (1)
1.Viết chương trình nhập một số nguyên dương n
a)In ra màn hình các số chia hết cho 3 trong khoảng từ 1đến n
b) Tính tổng các số chia hết cho 3 từ 1 đến n
Xem chi tiết
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
if i mod 3=0 then
begin
write(i:4);
t:=t+i;
end;
writeln;
writeln('Tong cac so chia het cho 3 la: ',t);
readln;
end.
Đúng 1
Bình luận (0)
nhập từ 2 số nguyên a,b (a <b) tinh tổng từ a đến b .Tính tổng các số chẵn lẻ từ a đến b tìm ra các số chia hết cho 7 từ a đến b